#lang rosetta-racket


(provide test-rectangle-line
         test-rectangle-surface)


(define (test-rectangle-line)
  (lift
   (thunk (displayln "Rectangle line"))
   (rectangle 2 4)))

(define (test-rectangle-surface)
  (lift
   (thunk (displayln "Rectangle surface"))
   (rectangle-surface (x 3) 4 5)))